chang_cooper_solver Subroutine

public subroutine chang_cooper_solver(alfa2, nt, h, dt, n, ybeg, yend, d1, d2, d3, y)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	alfa2
integer,	intent(in)			::	nt
real(kind=wp),	intent(in)			::	h
real(kind=wp),	intent(in)			::	dt
integer,	intent(in)			::	n
real(kind=wp),	intent(in)			::	ybeg
real(kind=wp),	intent(in)			::	yend
real(kind=wp),	intent(in)			::	d1(n+1)
real(kind=wp),	intent(in)			::	d2(n+1)
real(kind=wp),	intent(in)			::	d3(n+1)
real(kind=wp),	intent(inout)			::	y(n+2)